home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 37 / IOPROG_37.ISO / SOFT / Multilizer.exe / disk1 / data1.cab / data1 / [Group9]VCL Source Standard / IvCommon.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-12  |  2.0 KB  |  90 lines
  1. unit IvCommon;
  2.  
  3. interface
  4.  
  5. const
  6.   { Product verisons }
  7.  
  8.   LM_VER_C = '4.0';
  9.   MDS_VER_C = '1.1';
  10.   VCL_VER_C = '4.1';
  11.   VB_VER_C = VCL_VER_C;
  12.   JAVA_VER_C = '2.0';
  13.   WFC_VER_C = '1.0';
  14.   EPOC_VER_C = '1.0';
  15.  
  16.   VCL_VER_SUB_C = '21';
  17.   VB_VER_SUB_C = VCL_VER_SUB_C;
  18.  
  19. {$IFDEF WIN32}
  20.   { Registry keys }
  21.  
  22.   ML_KEY_C = '\Software\Multilizer';
  23.   LM_KEY_C = ML_KEY_C + '\Language Manager\' + LM_VER_C;
  24.   DS_KEY_C = ML_KEY_C + '\Dictionary Server\' + MDS_VER_C;
  25.   DELPHI2_KEY_C = ML_KEY_C + '\Delphi 2\' + VCL_VER_C;
  26.   DELPHI3_KEY_C = ML_KEY_C + '\Delphi 3\' + VCL_VER_C;
  27.   DELPHI4_KEY_C = ML_KEY_C + '\Delphi 4\' + VCL_VER_C;
  28.   DELPHI5_KEY_C = ML_KEY_C + '\Delphi 5\' + VCL_VER_C;
  29.   CBUILDER1_KEY_C = ML_KEY_C + '\C++Builder 1\' + VCL_VER_C;
  30.   CBUILDER3_KEY_C = ML_KEY_C + '\C++Builder 3\' + VCL_VER_C;
  31.   CBUILDER4_KEY_C = ML_KEY_C + '\C++Builder 4\' + VCL_VER_C;
  32.   VB_KEY_C = ML_KEY_C + '\Visual Basic\' + VB_VER_C;
  33.   JAVA_KEY_C = ML_KEY_C + '\Java\' + JAVA_VER_C;
  34.   WFC_KEY_C = ML_KEY_C + '\WFC\' + WFC_VER_C;
  35.   EPOC_KEY_C = ML_KEY_C + '\EPOC\' + EPOC_VER_C;
  36. {$ENDIF}
  37.  
  38.   { INI file data }
  39.  
  40.   INI_FILE_C = 'ivml16.ini';
  41.   DELPHI1_SECTION_C = 'Delphi, ' + VCL_VER_C;
  42.   VB16_SECTION_C = 'Visual Basic, ' + VB_VER_C;
  43.  
  44.   { Values }
  45.  
  46.   SERIAL_NUMBER_C = 'SerialNumber';
  47.   ROOT_DIR_C = 'RootDir';
  48.   DETECT_C = 'Detect';
  49.   VENDOR_C = 'Vendor';
  50.   DICTIONARY_CODE_C = 'DictionaryCode';
  51.  
  52.   LIMITED_VERSION_LANGAUGE_COUNT_C = 4;
  53.   LIMITED_VERSION_TRANSLATION_COUNT_C = 500;
  54.  
  55.   ML_SHEET_C = 'Multilizer';
  56.  
  57. type
  58.   TIvDetectType = (ivdtDisabled, ivdtPrompt, ivdtEnabled);
  59.  
  60.   TIvVendor = (ivveInnoview, ivveZac);
  61.  
  62.   TIvLicense =
  63.   (
  64.     liNone,
  65.     liLimited,
  66.     liEvaluation,
  67.     liStandard,
  68.     liProfessional
  69.   );
  70.  
  71. const
  72.   VENDOR_NAMES_C: array[TIvVendor] of String =
  73.   (
  74.     'Innoview',
  75.     'ZAC'
  76.   );
  77.  
  78.   LICENSE_NAMES_C: array[TIvLicense] of String =
  79.   (
  80.     'No license', {ivlm}
  81.     'Limited', {ivlm}
  82.     'Evaluation', {ivlm}
  83.     'Standard', {ivlm}
  84.     'Professional' {ivlm}
  85.   );
  86.  
  87. implementation
  88.  
  89. end.
  90.